home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / atileg1a / tile2.cls < prev   
Text File  |  1999-09-29  |  783b  |  30 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "Tile"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. 'local variable(s) to hold property value(s)
  17. Private mvarImage As Integer 'local copy
  18.  
  19. Public Property Let Image(ByVal vData As Integer)
  20.   mvarImage = vData
  21. End Property
  22.  
  23. Public Property Get Image() As Integer
  24.   Image = mvarImage
  25. End Property
  26.  
  27. Private Sub Class_Initialize()
  28.   mvarImage = -1
  29. End Sub
  30.